Explore the World of CD …rtainment & Home Learning/Explore the World of CD Entertainment and Home Learning (Magnum Design)(Macworld)(1995).iso/*Consumer Demo CD ƒ/Home Learning/BODY/DATA/contentM.dir/00133_Script_133

Text File | 1995-06-29 | 1KB | 46 lines

on john2


  puppetsprite 5, 1

  repeat while the mousecast >=119 and the mousecast <=128 and the mouseup
    set x = the mousecast
    if x <> -1 then
      set the castnum of sprite (x-104) = (x-10)
      set the castnum of sprite 5 to (x + 681)
    end if
    puppetSound "click"
    updatestage
    repeat while the mousecast = x and the mousedown <> 1
    end repeat
    go the frame
  end repeat
  if the mousecast = 800 then teleplay

  if the mousedown then
    if the mousecast <= 128 and the mousecast >= 120 then go "e"
    if the mousecast <= 809 and the mousecast >= 801 then go "e"
    if the mousecast = 119 and the castnum of sprite 5 = 800 then go "TVs+"
  end if

  go the frame
end

on movielistset
  global movielist

  set movielist = list("@:ATLAS:01.dir", "@:TWTW:01.dir", "@:stowaway:01title.dir","@:Science:01Start.DIR", "@:NATURE:01Intro.DIR", ¬
  "@:HISTORY:01Hia.dir", "@:MFIAD:01Title.DIR","@:Body:01.DIR", "@:PB:01.DIR", 1)
end




on teleplay

  --set the castnum of sprite 5 to 800
  go "TVs"
  abort

end